#!/usr/bin/perl
#use Net::OpenSSH;

use lib "./../cgi-bin/";
use SHELL::Command;
use config;

my $ssh =SHELL::Command->new();
$ssh->connect('localhost');
print "===============\n"; 
print $ssh->ls('/usr');
print "===============\n";
print $ssh->cat('/home/dmitriy/.bashrc');
print "===============\n";
print $ssh->lsToGreep('/home/dmitriy/', 'rar');
my $ssh2 =SHELL::Command->new();
$ssh2->connect($DATA{'LOGS_HOST'});
print $ssh2->ls('/home/dmitriy/testData/var/www/docs/rt/autoreleaser');
print $ssh->cat('/home/dmitriy/testData/var/www/docs/rt/autoreleaser/rt-kgor_1_10_0_128-release-mt.txt');